Voor aile 6502 gebruikers die floppy-drives op hun computer willen aansluiten is deze source iisting een belangrijk hulp- 
middel. De fioppy disk-interface van Elektuur (november en december 1982), die met goedkope standaard-onderdelen is 
opgebouwd, werkt met deihier beschreven software, . 
De object code van de gegeven programma-listing kan in een 2708-EPROM (ESS 515) worden gezet. Het disk operating 
system is van Ohio Scientific.en heeft het typenummer OS-65D V3.1 of OS-65D V3.3. Op deze disketten staan verder een 
Microsoft-B ASIC, een assembler, een. extended monitor en' diverse andere programma's. 
De EPROM ESS 515 bevat diverse utility-programma's die via het hex-keyboard of door middel van een JSR-kommando 
kunnen worden opgeroepen: 
CAD FF17 «GO (RUBOUT! Laden van het disk operating system van Ohio Scientific en van de Microsofr-BASIC- 

` interpreter van de diskette naar de junior computer. 
<AD> FF34 <GO> (RUBOUT) Startadres voor toekomstige uitbreidingen. 
SAD FFE2 <GO> RUBOUT) Starten van een hülpprogramma voor het aanpassen van een OS-65D V3. 1-diskette. 
CAD FFES <GO> {RUBOUT} Starten van een hulpprogramma voor het aanpassen van een OS-65D V3.3-diskette, 
JSR FEA3 Print character-subroutine. | 
JSR: FE18B Receive character-subroutine, | 
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R**DoG**k 
COMMANDE: 
RE AS 

PUT FN 


LOAD FN 


SOURCE FILE: 4006 - 4003 
REQUIRED TRACK(S): L. 


ENTER A FILE NAME: . BOOTST 


POR *BOÓTST* IS (ARE) 12 TRACK(S) OM FLOPPY 
B8*LO BOOTST -° эл : С 


B*RE А 


***DOS ASSEMBLER*** 

THE OBJECT MODULE, Cip OLT U 

WILL BE STORED AT SE@00 ^ 

DO YOU LIKE TO CHANGE IT?Y ` 

ENTER OBJECT START ADDRESS: $D280 - 


***PAGS l4. 
EDITOR? . 


z**pASS 2*é#*w 
EDITOR? 


LISTINGOY 
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ORG SFCOÓO BOOTSTRAP LOADER 


SOURCE LISTING OF THE BOOT STRAP LOADER 
FOR ELEKTOR'S DOS JUNIOR COMPUTER OR ANY 
OTHER 6502 SYSTEM 


WRITTEN BY GUIDO DE CUYPER AND A. NACHTMANN 


DATE: 7 SEPTEMBER 1982 


THIS IS THE SOURCE LISTING OF THE MODIFIED HEX 
DISPLAY MONITOR OF "JUNIOR COMUTER BOOK 2" AND 
A BOOT STRAP LOADER FOR OHIO SCIENTIFIC SOFTWARE. 


SOME ADRESSES IN THE HEX DISPLAY MONITOR HAVE 
BEEN CHANGED. THE BOOTSTRAP LOADER HAS GOT 
TWO ENTRIES: A COLD START AND A WARM START ENTRY. 


THE PIA ON THE FLOPPY INTERFACE PC BOARD IS 


INITIALIZED BY A POWER UP AND CAN'T BE REINITIA- 
LIZED VIA THE RESET LINE! 


***DISPLAY BUFFERS*** 


INL * 500Е8 

INH * ІМІ. +01 
POINTL * INH +01 
РОІМТН * POINTL 491 


***TEMPS LE 


TEMP — * РОІМТН +01 
MODE * TEMP +01 
NIBBLE * MODE +01 
KEY * NIBBLE +01 


***6532 I/O AND TIMER*** 


^PORT À & PORT B 


PAD i SFA80 DATA REGISTER 
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PADD * PAD +01 DATA DIRECTION 
PBD * PAD +02 DATA REGISTER 
BD DD ie PAD +83. DATA DIRECTION 


»WRITE EDGE DETECT CONTROL 


EDETA * SFAEA NEG EDET DISABLE PAT7.IRQ 
EDETB * SFAE5 POS EDET DISABLE PA7 IRQ 
EDETC  * SFAEG6 NEG EDET ENABLE PA7 IRQ 

EDETD * 


SFAE7. POS. EDET ENABLE PA7 IROQ 
^READ FLAG REGISTER, CLEAR TIMER & IRO FLAG 


RDFLAG * SFAD5. BITOSPA7 FLAG, BIT7-TIMER FLAG 


^?WRIÍTE COUNT INTO TIMER, DISABLE TIMER IRQ 


CNTA * SFAFA СІКІТ 
CNTB ж. ЗЕАЕ5  CLKET 
CNTC * SFAF6  CLK64T 
CNTD * SFAF7  CLKlKT 


>WRITE COUNT INTO TIMER, ENABLE TIMER IRQ 


СМТЕ Ж SFAFC. CLKIT 
CNTF Ж SSFAPD | CLKST 
CNTG * SFAFE  CLK64T 
CNTH * 


SFAFF СІКІКТ 


***INTERRUPT VECTORS*** 


NMIL * SEA 7A 
NMIH U ` * SFA7B 
IRQL * SPATE 
IRQH * S$FA7F 


***RAM IN THE 6532: SFAQG...SFAJ7P*** 


***6522 VIA ON JUNIOR'S INTERFACE BOARD*** 


» 6522 REGISTER FILE 


ORB x SF8g 

ORA x SF801 CONTROLS HANDSHAKE 
DDRB * SF802 : 

DDRA i SF8g3 


TALL 


TACH 


TAALL 


TBCH 


SR 
ACR 
PCR 
IFR 
IER 
ORAA 


+ + ++ +*+ 


ЅЕВӢ4 


45 
е 
со 
C 
Un 


SF886 


5Е807 


SF898 


SF899 


SF89A 
5Е8ЙВ 
$Е80С 
SF80D 
$ЕВЙЕ 
5ЕВЙЕ 


WRITE INTO LOW ORDER 
READ Ti LOW ORDER COU Е 
RESET Tl INTERRUPT FLAG 





WRITE INTO HIGH ORDER LATCH OF Ti 
WRITE INTO HIGH ORDER COUNTER OF Tl 
TRANSFER LOW ORDER LATCH INTO LOW 
ORDER COUNTER AND RESET T1 INTERR. 
FLAG, 

READ T1 HIGH ORDER COUNTER 


WRITE INTO LOW ORDER LATCH 
READ T1 LOW ORDER LATCH 


C 


WRITE INTO HIGH ORDER LATCH OFT AND(1) 
RESET INTERRUPT FLAG OF T1 
READ Tl HIGH ORDER LATCH 


WRITE INTO T2L-L 
READ T2C-L AND CLEAR T2 INTERR. 
"LAG. 


WRITE INTO T2C-H AND(i! TRANSFER T2L-L 
TO T2C-L AND(!) CLEAR INTERR. 

FLAG 

READ T2C-H 


SERIAL PORT 

AUXILIARY CONTROL REGISTE 
PERIPHERAL CONTROL REGIS' 
INTERRUPT FLAG REGISTER 

INTERRUPT ENABLE REGISTER 

OUTPUT REG. A, NO EFFECT ON HANDSHAKE 


R 
ER 


du 


LEZXZEZZEZEZREERSEZSIEZEREEERREERERESSZEREEEZEEEX 


***ADDRESSES OF 


THE FLOPPY INTERFACE BOARD*** 


Kk Kk k k & k k k k k k k k k k k k k k k k k k k k k K k k k k k k k k k t k K k k ХА 


***PIA ADDRESSES 


DRA 
CRA 
DRB 
CRB 


***ACIA ADRESSES 


CACIA 
DACIA 


* * * * 


* 
ж 


(6821) %%% 
5С0й00 DATA/DATA DIRECTION REGISTER A 
5Сй@1 CONTROL REGISTER A 
5С002 DATA/DATA DIRECTION REGISTER B 
5С003 CONTROL REGISTER B 


$С010 
$57611 


(6859) *** 


ACIA CONTROL REGISTER 
ACIA DATA REGISTER 


ж Ñ 


сровіт 


i 


CNTLX 





KERNEL 
AHOLD 
MON 
LODVEC 
KPDO 


SETTK 
МЕМНІ 
MEMLO 
LDHEAD 
REARDDK 


JN L 
BTD 
STROUT 


n 


Uc 


s: 


"л 


THER 





ІМУЕС 
ЕМУЕСА 
QOTVEC 


OUT m ME өз А 














АСЕ v4 
TCLOPPY 1/0 

* SPA59 

* SFAS 

* SPA 

* S 2 

* 5 

& $ 

ж. © 

^ Sp 


AMOUNT OF 


ADDRESSES*** 


CR 


oTOP ВІТ 
REGISTE 


SEM 


i 


COUN'T 


DOWN 









ADDRESSES ARA 

* SZASI KERNEL COMMAND INTERPRETER 

* $2363. DÓS CHARACTER STO 

* SPCOU. SAVE, ENTRY TO REX 

ж SBBED.. LOAD VECTOR FOR TH 

* $2325 KEY DEPRESSED DU 

SYSTEM IS BOOTED U 

* $26BC MOVE THE HEAD ON T 

* SOPFF FLOPPY. LOAD POINTER 

* МЕМНІ —21 

ж 52754 DO À HEAD LOAD 

* $2967. READ THIS TRACK INTO MEMORY POINTED 
BY THE LOAD POINTER MEMHI,MEMLO 

* $2761  UNLOAD THE BEAD. / 

* 529С6 "SET FOR DRIVE IN ACCU 

ж S2D73 PRINT THE STRINC FOLLOWING. THE JSR INSTR 
THE STRING HAS TO BE TERMINATED BY 
$00. AFTER THE STRING IS PRINTED 

` THE INSTRUCTION JUST BEHIND 506 

IS. EXECUTED! Е 

* 52321  INPUT DISTRIBUTOR 

* INDST UI OUTPUT DISTRIBUTOR 

i $2ACG AN OTHER DISTRIBUTOR 

i $265E. PRESENT SECTOR NUMBER 

* 52301 VECTOR FOR THE PRINTER INPUT 

* INVEC 402 2ND INPUT DEVICE 

* $2311 VECTOR. FOR THE PRINTER OUTPUT 

* OUTVÉC 02 .2ND OUTPUT DEVICE 

* $2643. STEP RATE DELAY 


DISPLAY MONITO 


LDAIM SiE 
STA PBDD 
LDAIM S81 


OR*** 


PBl...PB4 15 
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STA MODE SET ADDRESS MODE 


LDXIM $ЕЕ 
TXS INITIALIZE THE STACK POINTER 
SEI DISABLE IRQ 

START CLD DO YOUR JOB IN BINARY MODE 


STARTA JSR SCAND SCAN DISPLAY 
BNE STARTA WAIT UNTIL KEY IS RELEASED 


STARA JSR SCAND SCAN DISPLAY AND DEBOUNCE 
BEQ STARA IS ANY KEY DEPRESSED? 
JSR SCAND DEBOUNCE AGAIN 
BEQ STARA BRANCH ON ERROR 
JSR GETKEY RETURN WITH KEY VALUE IN ACCU 


***COMMAND FILTER*** 


GOEXEC CMPIM $13 GO KEY? 
BNE ADMODE 
LDXIM SFF SET THE STACK POINTER 
TXS 
CLD JUST IN CASE 
JMI POINTL GOTO ADDRESS POINTED BY THE DISPLAY 
ADMODE CMPIM $19 AD KEY? 
BNE DAMODE 
LDAIM $01 SET ADDRESS MODE 
STA MODE 
BNE STEPA 
DAMODE CMPIM 611 DA KEY? 
BNE STEP 
ҺБАІМ 500 SET DATA MODE 
STA МОРЕ 


BEQ STEPA 


STEP CMPIM 512 + KEY? 
BNE PC KE Y 
INC POINTL POINT-POINT-*l 
BNE STEPA 
INC POINTH 


STEPA  JMP START 


PCKEY СМРІМ 614 РС КЕҮ? 
ВМЕ ILLKEY 
JMP GOKERN GOTO KERNEL COMMAND INTERPRETER 


ILLKEY CMPIM $15 ILLEGAL KEY 
BPL STEPA IF YES IGNORE IT 


DATA STA KEY 
LDY MODE 
BNE ADDRES Y«0 IS DATA MODE, ELSE ADDRESS MODE 
LDATY POINTL GET DATA SPECIFIED BY POINT 
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ASLA 

ASLA 

ASLA 

ASLA GHIFT LOW ORDER NIBBLE TO THE LEFT 
ORA KEY KEY. VALUE IS NOW LOW ORDER NIBELE 
STAÍY POINTL. MOVE. DATA TO MEMORY 

JMP STEPA - 


ADDRES LDXIM $684 DO. 4 SHIFTS. 


"g 


ей 


сді 


ADLOOP ASL . POINTL SHIFT POINTH,POINTL TO THE L 
ROL — POINTH I | 
DEX 
BNE — ADLOOP 
LDA  POINTL | 
ORA KEY THE KEY VALUE IS THE LOW ORDER ADDR. NIBBLE 
STA — POINTL. 
ЈМР STEPA 


***SUBROUTINES ОР xdi HEX DISPLAY MONITOR*** 


SCAND IS ^ SUBROUTINE SHOWING THE DATA SPECIFIED BY 
КОНТ. | I 

CANDS SHOWS THE CONTENTS OF. THE DISPL. BUFFERS 
POINTH,POINTL AND INH ON THE 7-SEGMENT DIGPLAYS. 
THE SUBROUTINE AK SCANS THE KEYBOARD, ІТ IS AUTO- 
MATICALLY. CALLED VIA: SCAND OR. SCANDS. AK RETURNS 
` WITH A=Ø IF NO KEY IS DEPRESSED AND RETURNS WITH 
A<>@ IF A KEY 15 DEPRESSED. 
WHEN. SCAND OR SCANDS ARE LEFT, PORT A IS AN INPUT 
PORT. 


SCAND  LDYIM 900 - | I 
: LDAIY.POINTL GET DATA FROM MEMORY 


STA INHU =- STORE DATA IN THE DATA. BUFFER 
SCANDS LDAIM: S7F PAD... PAG 18 OUTPUT 

STA PADD | 

ІƏХІМ 508 ENABLE DISPLAY 


SCDSA LDA  POINTH OUTPUT POINTH 
- - g8R ^ SHOW RS 
LDA POINTL OUTPUT POINTL 
JSR SHOW ; 
LDA ІМН OUTPUT- INH 


JSR SHOW 

SCDSB  LDAIM $09 PAÜ...PA?7 IS INPUT 
STA — PADD 

AK LDYIM $03 .SCÀN 3 KEYBOARD ROWS 


LDXIM $06 RESET .ROW COUNTER 


ONEKEY LDAiM SFF 


AKA STX PBD OUTPUT ROW NUMBER 
INX ENABLE FOLLOWING ROW 
INX 
AND | PAD INPUT ROW PATTERN 
DEY ARE ALL ROWS SCANNED? 
BNE АКА 
LDYIM $06 TURN DISPLAY OFF 


STY PBD 
CRAIM S80 

EORIM $FF INVERT KEY PATTERN 
RTS 


THE SUBROUTINE SHOW DISPLAYS THE CONTENTS 
OF ANY DISPLAY BUFFER ON THE 7-SEGMENT DISPLAY. 
THE X REGISTER IS USED AS A DISPLAY POINTER 





SAVE CURRENT BYTE 
TEMP SAVE Y REGISTER 
GET HIGH ORDER NIBBLE 


SHOW 


CONVD OUTPUT HIGH ORDER NIBBLE 
GET BYTE AGAIN 

ЙЕ MASK OFF HIGH ORDER NIBRLE 

CONVD OUTPUT LOW ORDER NIBBLE 

TEMP RESTORE Y REGISTER 





THE SUBROUTINE CONVD DOES A BYTE TO 7-SEGMENT 
CONVERSION, 


CONVD TAY USE NIBBLE AS INDEX 
LDAY LOOK FETCH SEGMENT PATTERN 
STA PAD OUTPUT SEGMENT PATTERN 
STX PBD OUTPUT DISPLAY ENABLE 
LDYIM $FF DELAY A BIT 

DELAY DEY 
BNE DELAY 
DEY TURN THE SEGMENTS OFF 
STY PRD 
INX ENABLE NEXT DISPLAY 
INX 
RTS 


GETKEY RETURNS WITH THE VALUE OF A DEPRESSED 
KEY IN THE ACCU REGISTER.IF AN INVALID KEY 
WAS DEPRESSED, IT RETURNS WITH 515 IN ACCU. 





KEYINB 


KEYINC 


KEYIND 


LOOK 





ТУА 


BEL 


CLC 


ADC] 





LSRA 
TAX 


DEX | 


BNE 
RTS 


E 


SOT 
4а ы 
$81 
ONEKEY 
КЕҮІМ 


527 
GETKEA 
515 


КЕУІМС 


540 
579 


524 


53й 
519 
812 
502 
578 


2900 


$1# 


508 


503 
546” 
$21 
$86 


ЭЙЕ 


START AT ROW ZERO 


GET 


ONE ROW 


Az 
ARE 


THEN NO REY 
ALL ROWS SCANNED? 


m TABY EIS RO e 
RETURN HERE 1 


rx] 


ILLEGAL 


із 


MASK MSD. 
DIVIDE BY 2 


ADD ROW DISPLACEMENT 


О соч уал Es ÇQ Моке бр 


=> 


ер Су Су 00 


*** BOOTSTRAP STARTS HERE*** 


DEPRESSED 


DKBOOT 


РАСЕ Йй 


Aes 
JSR 


JMI 


2 


***INITIALIZE 


SIGMA 


JSR 
JSR 
JSR 
RTS 


***SUBROUTINE 


ІМІРЅК 


BOOT 


STEPLO 


TRKO 


INDEXP 


LDYIM Š 


221 
LDA IM 
STA 
LDA IM 
STA 
LDA IM 
STA 
LDXIM 
STX 
STY 
DEY 
STY 
STX 
STY 
RTS 


LDA IM 
BNE 


LDA IM 
BIT 
BEQ 
LDA IM 


STA 
JSR 
ANDIM 
STA 
JSR 
ORAIM 
STA 
LDXIM 
JSR 
BEQ 


LDXIM 
STX 
лер 





сес 
= 
Dome 


Он 
ов 


< 


INITIALIZE THE ENTIRE Т/ 
CONTINUE EXECUTION VIA THE LOAD 


THE DOS COMPUTER I/O*** 


INITIALIZE THE 6821 PIA 
INITIALIZE THE 6532 PIA ! 
LOAD TRACK £ FROM THE DISKETTE 





S OF THE BOOTSTRAP*** 


SFB 
TRKO 


502 
DRA 
INDEXP 
ЗЕРЕ 


DRB 
DUMMY 
$Е7 
DRB 
DUMMY 
508 
DRB 
518 
FDELAY 
STEPLO 


S7F 
DRB 
DELAY 


SELECT DATA DIRECTION REGISTER A 


SELECT DATA REGISTER A 
SELECT DATA DIRECTION 
Y=FF 

PORT В IS TOTAL OUTPUT 
SELECT DATA REGISTER B AGAIN 
SET ALL OUTPUTS HIGH 


REGISTER B 


FOR STEP IN DIRECTION 
BRANCH ALWAYS 


LOAD MASK PATTERN 

ARE WE ON TRACK ZERO? 

IF YES, DO INDEX TEST 
TOGGLE BITS FOR STEP OUT 


STORE IN PIA 
DELAY SOME CYCLES 
CLEAR STEP BIT 


DELAY SOME CYCLES 
SET THE STEP BIT 
AND OUTPUT IT 
DELAY VALUE 

WAIT A MOMENT 

TRY IT AGAIN 


RESET HEAD LOAD BIT 
HEAD LOAD 
WAIT А MOMENT 


VECTOR 


INDBEG LDA DRA 
BMI INDBEG 


INDEND LDA DRA 
BPL INDEND 
LDAIM $93 
STA CACIA 
LDAIM $58 
STA CACIA 


JOR RBYTE 
STA LODVEC 
TAX 

JSR RBYTE 
STA LODVEC 
JSR RBYTE 
STA 509ҒЕ 


LDYIM 50 


RPAGE  JSR RBYTE 
STAIY LODVEC 
INY 
BNE RPAGE 
INC LODVEC 
DEC 50ЙЕЕ 
ВМЕ КРАСЕ 
STX LODVEC 


LDAIM ӨРЕ 
STA DRB 
ВТ5 


FDELAY LDYIM $Ё8 


FDELA  DEY 
BNE FDELA 
EORX  $UgFF 
DEX 
BNE FDELAY 
RTS 


RBYTE LDA CACIA 
LSRA 
BCC RBYTE 
LDA DACIA 


DUMMY  RTS 


GET DISK STATUS 
LOOP TILL INDEX START 


GET DISK STATUS 
LOOP TILL INDEX END 


RESET ACIA 

INITIALIZE ACIA FOR 

8 BIT EVEN PARITY, DIVIDE BY 1 RATE 
GET FIRST BYTE FROM DISKETTE 

101 SAVE HIGH START ADDRESS 

SAVE IT FOR LATER USE 

GET SECOND BYTE 

SAVE LOW START ADDRESS 

READ THIRD BYTE FROM DISKETTE 

SAVE THE AMOUNT OF PAGES WE'RE GOING TO READ 
EROM DISKETTE (PAGES/TRACK) 
INITIALIZE LOAD POINTER 


READ A BYTE FROM DISKETTE 

AND STORE IT IN MEMORY 

SET UP FOR NEXT MEMORY LOCATION 
LOOP TILL A PAGE IS READ 

*8i ADJUST LOAD VECTOR 

DECRMENT PAGE COUNTER 

LOOP TILL ALL PAGES ARE READ 
ti RESTORE LOAD VECTOR 


UNLOAD HEAD 


LOOP A BIT 
DUMMY INSTRUCTION 
ADJUST TIMER COUNT 
LOOP TILL TIME OUT 


GET ACIA STATUS 

RECEIVER BIT IN CARRY 

LOOP TILL RECEIVER BUFFER IS FULL 
GET DATA BYTE FROM ACIA 


***INITIALIZE THE TERMINAL*** 


INITPR CLD. 
SEI 
LDAIM $67 
STA PBD 


DISABLE INTERRUPTS 
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ТВАІМ 
БТА 
LD XIM 
STX 
LDXIM 
STX 
NOP 
LDA IM 
STA 
LSRA 
STA 
LDXIM 
STX 


E 


RTBT BIT 
BMI 
JSR 
LSR 
ROR 
LDA 
STA 
LDA 
STA 
LDXIM 
JSR 
JSR 
CMPÍM 
BNE 
RTS 


***RECEIVE A 


RECCHA BIT 
BMI 
STX 
LDXIM 
JSR 


RECA JSR 


RECD BIT 
BPL 
SEC 
ROR 
DEX 
BNE 
BEQ 


RECB CLC 
ROR 
DEX 
BNE 


RECC JSR 


500 

PAD 

SFC YOUR EPSON LIKES THIS SP 
CNTLX 

SFF 

CNTHEX 


"9 
Ui 
= 
У 


езе 
әгі 


PADD SET DATA DIRCTION 


PBDD SET PORT B FOR EPSON BUSY ON PB5 
$03 
STPBIT TRANSMIT NO PARITY BUT 2 STOP BITG 


PAD WAIT FOR A START BIT 
STRTBT 

COMTIM COMPUTE THE START BIT TIME 
TIMH DIVIDE BY 2 

TIML 

TIML 

CNTHL SAVE HALF START BIT TIME 
TIMH 

CN'THH 

$08 

DELHBT 

RECD GET THE REST OF THE CHARACTER 
57Е WAS IT A RUBOUT CHARACTER? 
ІМІТРЕ ІЕ NOT, THEN TRY IT AGAIN 


CHARACTER FROM TERMINAL*** 


PAD WAIT КОК А START RIT 
RECCHA 

TEMPE SAVE X 

528 WE RECEIVE 8 BITS 


DELHBT DELAY FOR HALF BIT TIME 
DELBIT DELAY FOR ONE BIT TIME 


PAD ONE/ZERO CHECK 

RECB BRANCH ON ZERO 
ІТ 15 А '1' 

СНА ROTATE CARRY iNT CHARACTER 
SET UP FOR NEXT BIT 

RECA ARE ALL BITS READ? 

RECC 


IT IS A 'g' 
CHA 


REC 


DELBIT WAIT FOR THE STOP BIT 
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LDA 
ANDIM 
STA 
LDX 
RTS 


***COMPUTE D 


COMTIM CLC 
LDA 
ADCIM 
STA 
LDA 
ADC IM 
STA 
BIT 
BPL 
LDA 
STA 
ІВА 
ST 


RTS 


CHA 
S7F 
AHOLD 
TEMPB 


LOAD CHARACTER IN ACCU 
MASK OFF BIT 7 

SAVE CHARACTER FOR DOS 
RESTORE X 


IT TIME*** 


CNTLX 
501 
CNTL X 
CNTHX 
5@@ 
CNTHX 
PAD 
COMTIM 
CNTLX 
ТІМІ. 
CNTHX 
ТІМН 


à 


BIT ADDITION 


ja 


IS START BIT FINISHED? 


SET UP FOR HALF BIT TIME COMPUTATION 


#**#DELAY A FULL/HALF B1T TIME*** 


DELHBT LDA 


DELBIT LDA 


CNTDN SEC 


CNTHL 
TIML 
CNTHH 
TIMH 


CNTDN 


CNTLX 
TIML 
CNTHX 


TIMH 


TIML 
501 
TIML 
TIMH 
seg 
ТІМН 


CNTDN 


FETCH HALF BIT TIME 


BRANCH ALWAYS 


FETCH FULL BIT TIME 


16 BIT SUBTRACTION 


EQUALIZE 4 MICRO SECONDS 
TIME OUT? 


***PRINT THE 


PRCHA 


PRA 


PRB 


PRD 


BRKTST 


PRC 


y 
ок 
> ох 


LDA 
ANDIM 
BNE 
LDA 
ANDIM 
STA 
JSR 
LDXIM 


LSR 
BCC 
LDA 
ORAIM 
STA 


JSR 
DEX 
BNE 
LDX 


LDA 
ORAIM 
STÀ 
JSR 
DE X 
BNE 
BIT 
BPL 
LDX 


RTS 


BIT 
BPL 
JMI 


LDA 
ANDIM 
STA 
CLC 
BCC 


CHARACTER IN ACCU**^ 


ТЕМРА 
СНА 


PBD 
540 
CTS 
PBD 
SFE 
PBD 
DELBIT 
507 


СНА 
РЕС 
PBD 
501 
PBD 


DELBIT 


PRA 
STPBIT 


PBD 
501 
PBD 
DELBIT 


PRD 
PAD 
BRKTST 
TEMPA 


PAD 
BRKTST 
BRKT 


PBD 
SFE 
PBD 


PRB 


SAVE X 
SAVE CHARACTER 


GET PIA DATA OF $532 
MASK EPSON BUSY BIT 
LOOP IF PB5 IS HIGH 
TRANSMIT START BIT 


DELAY ONE BIT TIME 
TRANSMIT 7 DATA BITS 


SHIFT OUT CHARACTER 
BRANCH ON ZERO 


OUTPUT A ONE 


DELAY ONE BIT TIME 

SET UP FOR NEXT BIT 

ARE ALL BITS TRANSMITTED? 
GET AMOUNT OF STOPBITS-*1 


FIRST NONE PARITY 
AND THE STOP BITS 


CHECK IF BREAK KEY IS DEPRESSED! 


RESTORE X 


IS THE BREAK KEY ACTIVE? 


JUMP VIA AN USER SELECTARLE VECTOR 


OUTPUT A ZERO 


BRANCH ALWAYS 


ck koh oko Kok k k k k k k k k Kk k k k K K K k K K K k K 
** X*uARM START ENTRY FOR DOS*** 
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2 k % > K k É K eoe e e ede e e e k Kok k K Kk kO k R 


GOKERN JSR 
JMP 


RESTTY LDAIM 
STA 
LDAIM 
STA 
LDA IM 
STA 
LSRA 
STA 
RTS 


RESTTY 
KERNEL 


$27 
PBD 
$589 
PAD 
S7F 
PADD 


PBDD 


RESET PRINTER I/O 
AND GOTO DOS KOMMAND INTERPRETER 


ec dece dece che oe e oe ce dec ke KK hk k k k k k k k k k k k k A o 


***BREAK TEST DURING. BASIC OUTPUT*** 
КАКАЯ £ ok É É k k k k k k ok e de jede dede de eee ke e 


BASBRK LDAIM 
STA 
LDA IM 
STA 
LDAIM 
STA 
LDA IM 
STA 
JMP 


BASTST LDAIM 
STA 
RTS 


BASTST 
BRKT 
BASTST 


BRKT 


MON 
NMIL 
MON 
ММІН. 
DKBOOT 


503 
KPDO 


SET BASIC'S BREAK VECTOR 

/256 

+01 

IF NMI BREAK THEN GOTO HEX DISPLAY MONITOR 
/256 

NOW BOOT UP THE SYSTEM 


SET BREAK FLAG (CTL-C) 
AND RETURN TO CALLER 


* k k £ k k Kk e je ce e ee ce ke e e ce o ee R k k e e e KOR kO k K k R K k k k K 


***BREAK TEST DURING DOS/AS/EM OUTPUT*** 
KK K k K K k k k k k k k k K de K k K 8 k k k K k k Ke de k k k K k k k K R K k K 


DOSBRK LDAIM 
STA 
LDA IM 
STA 
LDAIM 
STA 
LDAIM 
STA 


KERNEL 
BRKT 
KERNEL 
BRKT 


MON 


NMIL 
MON 


 NMIH 


IF BREAK THEN GOTO KERNEL 

/256 

+@1 

IF NMI BREAK THEN GOTO HEX DISPLAY MONITOR 


/256 
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JMP 


DRBOOT 


NOW BOOT UP THE SYSTEM 


***INDIRECT INTERRUPT VECTORS*** 


INDNMI JMI 
INDIRQ JMI 


NMIL 
IRQL 


k K k k k k k k k k k k k k k kk kk k k k k k k k k k k kk k k'ik k k k k k k k k k k k k k K 


*** INITIALIZE BOOTSTRAP FOR OSI MODIFICATION*** 
% K É k k k k k k k k K k k k k k e ck ok oko K k K k K K k K e ok k K K KOK KOR K e ek 


FIRSTX JSR 
LDA IM 
STA 
LDA IM 
STA 
JSR 
LDAIM 
STA 
JSR 
STX 
JSR 
LDAIM 
STA 
STA 
STA 
JSR 
LDA IM 
STA 
STA 
LDA IM 
STA 
STA 
LDA IM 
STA 
STA 
STA 
STA 
RTS 


CIRSTY INC 


SIGMA 
$28 
STRATE 
501 
SECTNM 
SETTK 
52А 
МЕМНІ 
LDHEAD 
MEMLO 
READDK 
501 
INDST 
OUTDST 
DSTX 
SETDRV 
RECCHA 
INVEC 
INVECA 
PRCHA 
OUTVEC 
OUTVCA 
RECCHA 
INVEC 
INVECA 
OUTVEC 
OUTVCA 


SECTNM 


INIT THE DOS COMPUTER I/O 
SETP RATE DELAY 


TRACK-1/SECTOR-1 

SAVE SECTOR NUMBER 

MOVE HEAD ON TRACK 1 

THE LOAD VECTOR IS S$2A09 
SAVE IT 

LOAD THE HEAD 


READ TRACK Ll/SECTOR 2 

SET FOR DRIVE A AND THE DISTRIBUTOR 
INPUT DISTRIBUTOR 

OUTPUT DISTRIBUTOR 

COMMON DISTRIBUTOR 


-31 
SET PRINTER INPUT VECTOR 


-01 
SET PRINTER OUTPUT VECTOR 


/256 HIGH ORDER ADDRESS OF RECCHA&PRCHA 
+01 
+81 
+01 
+01 


SECTOR NUMBER TS 2 


ш, 


i 


Л 


E 
tà 
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LDAIM 
JSR 


с 
C 
Л 
ж 


uod 


Rod 


i 


ii 


Hog 


f mg oH 


Hod 


H 


806 ТВАСК=йб 
SETTK MOVE HEAD ON TRACK 06 







AREADDK READ TRACK 06/SECTOR 2 
SECTNM SECTNM-32 

$0g LOAD VECTOR «50000 
MEMLO 

MEMHI 

READDX READ TRACK 06/SECTOR 3 
$91 SECTNM-l 

SECTNM 

$13 TRACKz13 

SETTK MOVE HEAD ON TRACK 13 
$32 SET LOAD POINTER TO $3274 
МЕМНІ 

574 

MEMLO 

LDHEAD 


READDK READ TRACK l13/SECTOR 1 
UNLDHD UNLOAD THE HEAD 


STROUT 

sS ëD 

$@А CRLF 
“ж 

t 


ә» О 


RESET GOTO HEX DISPLAY MONITOR 


K kk k k k Kk & X Kk k k k x k k k k k kk k k k k k k k k k kk 


***BOOT OS 65D V3.l FROM HERE*** 
dede k Kk k k koc dee eo ke k k А К А 


VONE 


JSR 
JMP 


PAGE 17 


* k k k k k Kk k k * k Kk k k k k k & K K N k K k k í k k k k ЖК 


***BšOOT OS-65D V3.3 FROM HERE*** 
Wk k * k k k k k k Kk k k k Kok k k k K K K Kk k K KOR OK K K K 


VTHREE JSR FIRSTX 
JMP FIRSTY 


